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HOW TO MAKE A DLISP 

The functions in DLISP are hand-coded in MIDAS using the 
macros and linking mechanism of Roland silver {A.I* Memo 127A) . 
They are contained in the file TOPO MQX (or latest version) and 
also in the file DLISP ENGL on the tape labelled VZA DIS. The 
procedure is: 

make a file with DLISPF==1 ; suppresses TOPO functions 

assemble with TS BMIDAS on ARCHIVE tape 

; requires large macro area 
load the assembled file with the current relocatable LISP 



SL UTn;TS_BMIDAS(CR) ;TOB ARCHIVE tape 

DLISP SUBRS*- DLISP ENGLfCR) 



:STINK_ 

JLISPS 

MDLI5P_SUBRSSL 

KLISP;RLISP_107H$L$S 

?55 

TDSS 

?Y DLISP BIN 



j ask errors 
j terminate 
; dump 
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LISP PICPAC 

Why deal with stored data? Unless the whole image is stored, 
only certain routines can use the data (for example, those with 
fixed scan patterns) - 

1. Convenience; Setting up the vidisector takes me about 
15 minutes. Setting up particular conditions, for exam- 
ple a particularly difficult edge, may take longer. 

2. Reliability; The vidisector usually works, but it has 
been down for periods of three weeks and longer. 

3- Repeatability: A useful procedure has been to dump each 
scene, then process it* If the program encounters a bug, 
that data is valuable and allows the bug to be trapped. 
Repeatibility also allows isolating changes. Conceptual 
changes can also be tested more quickly with a well-known 
scene. 

Loading stored Data 

Loading stored pictures is simple if the entire picture is to 
be loaded. A function LOAD is called: 

(LOAD fnamel fname2 dev user array) 
where the last argument specifies the array name for the data to 
be stored, and the other arguments specify a file name. The size 
of the array is determined by LOAD and is attached to the array as 
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the SIZE property of the atom. Note that LOAD takes arguments 
very much like OREAD. The file LOAD > on the TOB ARCHIVE tape 
contains the necessary functions- 

Where it is desired to work with only a portion of a stored 
picture, the user must struggle with the rather complicated set of 
arguments required by the binary read routines of Krakauer. His 
notes are repeated here for reference. 

M.iki:!g Srorec l-icturgs 

To make stored pictures: 

set up the vidisector 

load LISP PICPAC :LOAD_PICPAC_SYS_ 

visualize and frame the scene 

5G (VIEW) 

scan (V£CAN_den) 

dump. (DUMP_fnl_fn2_dev_user_PICTURE) 

After executing (view), the user selects a grid with pots 

labelled 143-147 and finally types T_ to terminate. 

The system requires about 44 blocks of core, depending on the 

size of the picture. 

To make up a new version of PICPAC SYS, load the TOPO file 

and allocate as desired, load a file PICPAC X13 which generates 

a smaller version of the TOPOLOGIST, with TOPO inoperative and 

inessential. 
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: LQAD_T0PO_NSYS_ 
$G 

ALLOC Y 
CORE 36 



(UREftD PICPAC X13)ro" 
where PICPAC X13 is only REGION X13 with the TOPO core allocation 
removed and a smaller PICTURE array. 



Preliminary PICPAC for LISP 

8/3/67 
L.J, Krakauer Revised 10/20/67 



Several functions have been added to LISP in order to allow 
the reading of vidisector images from tape, and the writing of 
such images onto tape. 

Before describing the functions, however, a word or two must 
be said about the image conventions of PICPAC, Images are con- 
sidered to be rectangular subportions of the unit square, and 
hence image coordinates are floating point numbers between and 
1- This convention facilitates the mapping of this "image space" 
onto various i/O devices, such as both vidisectors, the display, 
the plotter, etc. Since fixed point coordinates have often been 
used in the past, however, all functions needing floating point 
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arguments will perform the conversion from fixed point if fixed 
point arguments are supplied. The fixed point values are assumed 
to be new vidisector coordinates, so that the conversion amounts 
to floating the coordinates and dividing by 4096*0. 

The currently available functions are: 

(PICARRAY arr gc xdim ydim) i This function declares an image 
array. Its use is exactly the same as the function ARRAY: the 
arguments are, respectively, the array name. gc^NIL, the array x 
dimension, and the y dimension. Since an image array will contain 
numbers, and not pointers to S-expressions, the second argument, 
gc, should always be NIL. The array so declared looks like a nor- 
mal LISP array: that is, (arr n m) will evaluate to the x*n, y=ra 
entry in the array. 

(UREAD namel name2 unit) ; The regular UREAD is used to open 
a file for reading (but do not type \ Q.) 

(READPIC arr llx lly del) or (READPIC arr llx lly delx dely) : 
This function performs the read from the file previously specified 
in a UREAD into the array arr* The arguments are respectively the 
lower-left x and y coordinates, and the x and y deltas respectively 
(the y delta will be assumed the same as the y delta if the last 
argument is omitted) . The number of points read is determined by 
the array's dimensions. Thus the coordinates of the upper-right 
point of the image area read in are given by: 
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urx • llx + delx*xdim 
ury = lly + dely*ydim 
These arguments are normally to be floating point, but if fixed 
point numbers are given, they will bo assumed to be new vidisector 
coordinates and will be converted, as previously noted. 

The value of READPJC will be arr, the name of the array, if 
the read is successful. In order to be successful, however, the 
area of the image requested must be a subpart of the area recorded 
on the tape. The area on the tape will not in general be the 
entire unit square, however- If a portion of the area requested 
is not on the tape, READPIC will print an error comment and return 
the value NIL. 

Note chat if the delta given is not an integer multiple of the 
delta on the tape, no error comment is printed, but rather READPIC 
tries to do the best it can, returning for each point requested the 
value of the closest lattice point actually recorded on the tape. 
(UWRITE unit)* The regular UWRtTE is used. 

(WRITEPIC arr): The entire array arr is written out on the 
unit previously opened for writing. 

(DFH.E narael naroe2) ; The same UFILE is used as for ordinary 
A5CII files. 

(DESCRa): usually (DESCR {QUOTE ARR>) or (DESCR) : 
The argument a is evaluated; it should evaluate to either the name 
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of an array or to NIL. This function (its name stands for "des- 
cribe") evaluates to a list of 10. numbers describing the array, 
which are, in order: 

(xdim ydira llx lly delx dely -335577777776 vd light data), 
where the last three numbers give information about the vidisector 
used, the lighting, and the mode of the data. Numbers 3 through 
6 are in floating point, and number 7 is a byte pointer used 
internallyj which can be ignored- (DESCR) evaluates to a similar 
list which describes the image on tape which was last read from by 
a RZADPIC, whether successfully or otherwise. (DESCR NIL)=NIL» 
A useful trick is to execute a (SETO ARR {QUOTE ARR) ) for all 
arrays. (DESCR ARR) may then be typed instead of [DESCR (QUOTE 
ARR) ) . 

(DESCRX a); This function is the same as DESCR, except that 
all floating point numbers are fixed, after being converted to new 
vidisector coordinates by multiplying by 4096.0. Images on tape 
will generally have integral deltas. 
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SCAN FUNCTION IN LISP 

A scan function which has wide utility is available in DL1SP. 
The function evaluates functional arguments at the locations in 
two dimensions given by the parallelogram specified by a point and 
(nl - n2) steps along two vectors (vl » v2) . 

y 

A typical call is: 

(SCAN MEunl fun2 rowfun) (x . y) (nl . n2) (vl . v2)) 
where vl and v2 are dotted pairs, vectors defining the directions 
of the steps. Typically, (vl . v2> = ((0 . den) . (den .0)). 
The functional arguments fun2 and rowfun are optional if present, 
rowfun is called at the beginning of each row as an initialization 
function, then at each point , 

(fun2 (funl x y)) 
is evaluated. The function SCANA assumes that the second argument 
is an array, and stores into it. 

(SCANA '(funl array) (x - y) (nl . n2) (vl - v2)) 
A complication in the use of these functions rests on the LISP 
convention with the order of elements in an array. LISP stores 
elements backwards from the usual convention of the faster moving 
index as the first index. The SCAN routines were designed to work 
with these arrays, and thus have reversed x and y coordinates for 
real world devices like the vidisector. 
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THE GEOMETER 

The analysis performed by the GEOMETER has been described in 
another note. We go into programming detail here. A package of 
modules is called in a dozen subroutine calls, by a very brief 
routine called EXECUTE, The flow of control is outlined below, 
but can be followed directly in EXECUTE* The primary data is the 
list REGIONS and various properties of each region, primarily 
inclusion and BOUND. 

REGIONS 

(R12 H13 R14 R1S R16 R17 R20 R21 H22 H23 H24 H25 R26 R27 

H30 H31 R32 R33 R34 H35 R36 R37 R40 R41 R42 H43 R44 R45 R46 

R47 R50 R51 R52 R53 R54 R55 F56 R57 R60 R61 R62) 

The BOUND property is a list of sublists consisting of a code for 
the neighbor, followed by a list of points. 

R14 BOUND 
((NIL (174 . 20)) 
(15 (174 . 22) (174 - 24) (174 . 26) (174 . 30) (174 . 32) 
{174 . 34) (174 . 36) (174 . 40) (174 . 42) (174 . 44) 
{174 , 46) (174 ■ 50) . . - - 

We choose big regions on the basis of perimeter, then determine 
the list SEGMENTS of boundaries of big regions. The properties 

- 10 - 



of interest are the CORNERS of a segment, the SEGMENTS property 
of a segment (list of sublists of points), and the REGIONS pro* 
perty of a segment. The S property of a region is also of interest; 
it is a list of dotted pairs of nhbr and segment, cyclic around the 
boundary. The subsegmentation into straight lines is done at 
this time? its results are the CORNERS property of a segment. 

We go iron segments to vertices by the syntactic analysis on 
neighborhoods. By pairing segments across a common boundary and 
by cycling around a vertex using alternately successor and pairing 
operations: 

52 is the successor of Si 

53 pairs with S2 

54 is the successor of S3 

55 pairs with S4 

We come to vertices involving three or more regions. Tho properties 
of interest are: 

the CVCLE of a vertex, a ccw list of sublists of paired seg- 
ments 
VERTEXl and VERTEX2 of a segment, names of vertices. 

. VERTICES 

{V30 V27 V26 V25 V24 V23 V22 V21 V20 V17 V16 V15 V14 V13) 
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(PRINTL (GET 'V30 'CYCLE)) 

(((15 - S22) (14 . S13)) 

((12 . S26) (15 . S23)) 

((14 . S31) (12 - S32))) 



We obtain the location of vertices by intersection, and make a 
better approximation to the straight lines between three-region 
vertices. Then we prepare the format for output; that form is a 
list of vertices with their positions and connectivity. 

CONNECT property of a vertex, ccw list of connected vertices 
POSITION property of a vertex, dotted pair floating point 
(x - y) 

The PROPOSER works with that format and possibly adds some new 
connections ■ 

The figure which follows will be a useful model for the 
examples of the new few pages. 



S» 







- 12 - 





EXECl defines: 

BREGIONS, a list of big regions 

KBREGIONS, a corresponding list of region codes 

TRL2, an assoc translation list from codes to regions 

EDGES defines: 

SEGMENTS, a list of boundaries of big regions 
S property of a region, list of dotted pairs, nhbr and seg- 
ment cyclic around boundary 

It calls: 

S: which strings together sublists of BOUND with a constant 

big region nhbr 
SEGMENTS; which subsegments into straight lines. Returns 

end points and any intervening corners. 

An example of the S property: 

R14 S 

{12 . S26) 

(15 - S23) 

{21 . S24) 

{17 , S25) 

(12 - S26) 

S2 makes only a small format change. 

VA defines: 

PAIR property of a segment 

VA calls: 

FINDS 
PAIRS 

The action of VA is to pair segments on opposite sides of a 
common boundary by neighborhood and parallel-opposite. This 
pairing rejects much noise which fails to affect both element! 
of a pair. The variables PARALLEL (radians, currently set at 
about 30°) and PDTOL, a loose tolerance on perpendicular dis- 
tance, control these conditions. The overlap condition is 
that one end of one of the lines must be interior to the 
other in projection. 
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Vl defines: 



VERTICES, a list of three-region vertices 

CYCLE property of a vertex, a list of sublists of length 2, 

each element of which is a dotted pair, nhbr and segment 
VERTEXl and VERTEX2 property of a segment 

Vl calls: 

CYCLE 

The syntactic operation extracts three— or— more region ver- 
tices- CYCLE cycles around the vertex by alternating suc- 
cessor and pair operations* Successor of Si is S2; the pair 
of S2 is S3; the successor of S3 is S4; etc. 




V30 CYCLE 

{(15 . S22) (14 i 513)) 

{(12 . S26) (15 . S23}) 

((14 . S31) (12 . S32)) 

V2 defines: 

POSITION of a vertex, dotted pair of floating point numbers 

V2 calls: 
VTEX 

V2 determines a bost intersection of lines at a vertex by 
determining a position with minimum mean square perpendicular 
distance from the lines. Each line appears paired. Iterates 
a second and third time, weighting square distances inversely 
by square exrrapolation errors, thus giving most credit to 
the most accurate estimates. 

VTEST calls: 

VTEX 

VTEST occasionally merges two adjacent vertices. Useful to 
suppress spurious vertices caused by low resolution. 

- 14 - 



LV 

begins with the line between the three-region vertices at 
either end of a segment. If all interior vertices are suf- 
ficiently close to the line, the segment is treated as a 
straight line. If not, cluster by proximity of end points, 
and fit a vertex to each cluster, 

PAXRV 

CONNECT 3 - these two functions define; 

CONNECT property of a vertex 

These routines complete the format of the output: a list 
of vertices with their positions and connectivities. 

PROPOSE calls: 

PREDECESSOR 

SUCCESSOR 

COLINEAR, CONVEX, and CONCAVE 

PROPOSE uses the simple format: a list of vertices, their 
positions, and their connectivity. For each vertex, it 
defines predecessor and successor properties to simplify 
traveling around the net. It looks only at concave vertices. 
It tries to close parallelograms. Given a concave vertex, 
it examines each connecting vertex. The angle ©i must be 
less than the angle 82- If so, the routine looks by multi- 
entry for a vertex near the point predicted by translating 
V among VA,VZ. An earlier version used broken lines, to 
extend them, and to connect two vertices with an edge parallel 
to one in the region, provided it did not cross any other edge, 




V<L 



OUTPUT 

writes out the data in the final format and with the data 
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a little program which reads the data in and formats it. The 
function is called with the name of the output file: 
(OUTPUT fnamel fname2) . 

Two flags are of interest: 

SHOW if non-nil, causes display of various steps in processing 

PLOT if non-nil, causes plots of the steps displayed. 

Some useful functions for looking at data are: 
SHOWEDGES - paired straight lines 
SHOWENDS - straight lines 
SHOW - line drawing from final format 
SHOWBOUND - unprocessed boundary 



To help examine property lists; 

(PLIST list property) FEXPR prints the indicated property 
in a useful form, for each element in the list 

(PROPS atom) FEXPR prints the indicators only on the property 
list of the atom. 
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SEGMENTS 

The purpose of SEGMENTS is to take a portion of a boundary 
and break it up into a sequence of straight lines. There are two 
entries, which differ only in whether the list returned contains 
the endpoints. The routines are in MIDAS, loaded into LISP using 
the macros and linking mechanism of Roland Silver {A. I. Memo 127A) . 
They live in the TOPO MQX and in TV J >- 

The method is simple: given an ordered list of points, we 
take the line between end points, and subdivide the list or not 
depending on the maximum perpendicular distance of points from the 
line. If the maximum perpendicular distance is greater than approxi- 
mately four times the transverse point scatter dx (dx is approxi- 
mately half a raster unit in a typical case), the list is subdivided 
and the procedure is applied recursively to the sublists. The limit 
of perpendicular distance is set from LISP by: 

(SEGI limit) r initialization 

where limit is floating point. 

If there results more than one division, the conditions for 
finding a corner are not always well met (no line should be near 
parallel to the line between end points). Therefore, we repeat the 
process twice more on the lines obtained, but consider alternate 
vertices. Some corners are shifted and others disappear. 

The routine returns a list of corner points (which are actually 
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points from the list), it would be better to return lists of fitted 
points- The routine is called with a list of dotted pairs, not 
necessarily floating point. 

The perpendicular distance test is quite fast. The perpendi- 
cular distance corresponds to the y-coordinate in a coordinate system 
rotated along the line connecting end points as the x-axis. 

The parameters used by the program are: 
SEGLIM: the limit to perpendicular distances considered cclinear. 

Set by (SEGI limit), it is a floating point machine number, not 

a LISP atom. 
SUBRs defined: 

SE6I: initialize the parameter SEGLIM 

SEGMENTS: returns a list of corners with end points in the form of 
dotted pairs of floating point LISP numbers. 
SEGMENT: returns list of corners without end points. 

We make a short description of the operation and of the principal 
MIDAS entries. A user who wished to incorporate the routines would 
need to change the input form and the output form. 

5EGPU5H: convert frctn input format to internal format; push 
points on a point pdl (which overlaps TOPO and thus smashes 
TOPO) • The internal format is alternate x and y in a block. 
SEGB2; segment portion of line between two pointers on the 
point pdl and recurse. Arguments are a list of corners in A, 
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and begin and end pointers in c and R4 . 
SEGR; repeat segmentation on each sublist between alternate 
corners. 

The program, roughly speaking, is; 

PUSHJ P f SEGPUSH jset up internal format 

PUSHJ P, SEGB2 - initial segmentation 

PUSHJ P, SEGR ;repeat segmentation 

PUSHJ P, SEGR 

JUST SEGPO ; output list of dotted pairs. 
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MULTI-ENTRY CODING 

The multi-entry coding routines are a module available in LISP 
and MIDAS* The routines provide the mechanism for two-dimensional 
proximity, i.e. find all points near a point p. Topology requires 
that there be N+l overlapping cells in N dimensions to guarantee 
proximity. For simplicity, we have four instead of three overlapping 
cells. The distance for proximity defines the dimension of the 
array? if delta is this distance, the array must correspond to cells 
of twice this size. The array has dimensions 

Nl/(2*DELTA), N2/(2*DELTA) , 4 
but is a half word array. In the MIDAS version, hash coding is 
used if the image array exceeds the storage area in size. In each 
half word, a list of the entries is kept. 

Functions to initialize, to store, and to retrieve associations 
comprise the package. In LISP: 

(MATCHA nx ny (cons sx sy) } initializes by calculating the 
scale and allocating an array of the calculated size. Here, 
nx and ny are upper limits of coordinates which are assumed 
to run from (0 . 0) to {nx . ny) ; sx and sy are cell sizes 
along the two dimensions. 
(MULTISTORE p ptr) stores the pointer ptr at the position of 

the dotted pair p. 
(MULTIFIND p ptr) returns a list of elements different from 
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ptr and with no repetitions, elements near the dotted pair 
position p. 
The functions occupy one page of EXPR code in the file labelled 
A 262 on the tape TOB ARCHIVE. 

In the MIDAS version, the array location and array size are 
scored in variables: 

MULTIA: ;array location 

MULTIL: ;array length 

A; ;xlow float pt 

B: jylow float pt 

C: ;xhigh float pt 

R4i ;yhigh float pt 

To initialize, either: 

MOLTIM: :x dimension fixed pt 

MULTIN; ;y dimension fixed pt 

PUSHJ P # MULTII rcalculates scale and scaling function 
or the user can specify the scale factors and allow the program to 
calculate the dimensions of the image array: 

MULTIQ : r scale factor 

MULTIO+1 : scale factor y 

PUSHJ P, MULTIZ :initialize ( calc dimensions and choose scale 

function 
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To store in the multi-entry array: 

A: pointer 

B: x float pt 

C: y float pt 

PUSH J P, HULTIS 
which returns: 

A: original pointer 

B-R5: four lists of associations, exactly, in each of the 
four registers are two lists: after cons list, before cons 
list. 
To find associations: 

A: pointer 

B: x float pt 

C: y float pt 

POSHJ P f MtJLTIV 
which returns a list in A, without repetitions and without the 
original pointer. 

To store vectors, interpolating points between end points, suf* 
ficient to guarantee proximity: 

A: pointer 

B: xl float pt 

C: yl float pt 

R4: x2 float pt 
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R5: y2 float pt 

MULTVF: funarg evaluated at end points and interpolated points 

PUSHJ P, MULTIV 
At each interpolated point and end point, the program calls the 
functional argument in MULTVF (which might be MUL.TIS, but which woul 
preferably be a function which calls MULTIS, then processes the 
associations which occur) . A useful way of using MULTXV is with a 
hash-coded table of pairs to avoid repetition. The CONSes can be 
done from a pdl or free storage area. 



- 23 - 



STRAIGHT LIKE FITTING 

We usually represent a line in the symmetric form: 

x*sint - y*ooet + z * 0. 
The special cases 

y » ax + b 

x = cy + d 
are s imply i 

x*tant - y + z/cost = 

x - y*cott + z/sint ■ 
The solution to the special cases is straightforward in terms of 
the method of projection; 

y = ax + b 

This is a system of two equations in two unknowns: 

ft - ( n I 4 L * , - 1 h i * ;) /S&ftE* - £»,»;) 

whose solution corresponds to the line with the same first two moment* 
as the sample. The equations are exactly those of the least squares 
solution. The solution for the form 

x ■ cy + d 
can be obtained by interchanging x and y in the two equations. The 
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case of a symmetric interval in x is often very useful- Then, the 
sum on x vanishes, 2L %* *0 and: 

The general linear form has a nonlinear normalization condition and 
the solution is; * — - *- — I 



ian J?<* = 



ift**«-Zwir*0?i«.S%-£*M 



One useful quantity for description of a line is its angler 
slopes are not continuous through the full range of 17 directions. 
Although the general linear solution involves transcendental func- 
tions which involve a certain amount of computation, the alternative 
is to take the special case solution about the axis which lies nearer 
the line of the data. This amounts to choosing the larger of the 
denominators 

The straight line fits should be adequate even though the procedure 
is not rotationally invariant, but tan S is a poor approx to the 
angle at angles near 45°* The simplest solution is to calculate 
the angle corresponding to a few terms in the atan Q series 
expansion. 

Straightforward error propagation shows the mean squared error 
in slope to be; 
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For the general case, we can use the same result after a rotation 
of coordinates with x axis along the direction of the line. A 
usual test for linearity is the mean squared error: 

which can be computed in terms of the sums already calculated: 

M-- <&£**+ laJal*i j +lftftl«±%i-2bcL5 +<L z £l 

A description of the line segment by two of the sample points 
is deficient but useful. Instead, we describe a line segment by 
end points, projected on the line. These are equivalent to the 
best fit line, and are an alternative representation. 

Functions in both LISP and MIDAS are available to compute 
straight line fits. In LISP, the procedure is to evaluate; 

(STLINE L) 
where L is a list of dotted pairs. The value is a list of three 
parameters in one of the two special case forms. 

The MICAS version (available in TVJ )) fits the general form 
of the linear equation. The internal representation is a block of 
alternate x and y floating point positions* It expects: 

A: pointer to the first point 

B: pointer to the last point 
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PUSHJ P, LFIT 
The results are in a block of about 20 words to BLT into a header 
block for the line* Other entries are: 

A: x float pt 

B: y float pt 

PU5HJ P, LFITP 
which adds a point to the line sums. 

PUSHJ P, LFIT 3 
which takes its data from the LFIT data block and fits the parameters 
of a general straight line. 

A: x float pt 

B: y float pt 

PUSHJ P, LFITPR 
which projects the point (x,y) on the line in the LFIT data block. 

For the purpose of testing colinearity, a function for the 
special case line fit also exists, but has not been debugged. The 
time required per fit is around .5 msec, sufficiently fast to allow 
rather free testing of colinearity hypotheses for extension and 
redundancy of lines. 
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LINE VERIFICATION 
LV 

Given two points Q and Q 2 in the field of view, the program 
will tell whether an edge extends from Q-.±i to Qo+i {i normal to 

The central part of the program is in MIDAS to be used within 
LISP- A few EXPR execute top level functions. 
Instructions for use: 

1. Assemble the MIDAS program MLV 1 (or MLV 2) which is on tape AHD. 

midasFh" 

device:user; MLV BIN*- ML V 1 (CR) 

2. Link the assembled version with LISP and TOPO as follows: 

STINK [IT 

JLISPS 

Mdevice: user; TOPO BINSL 

Mdevice : userjMLV BINSL 

Mdevice:user;RLISP 107H$LS$ 

?$$ 

TD?? 

$Y LV BIN 

3. Read in file LV X (or LV 2) of tape AHD 

(UREAD LV 1 device user) 
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4. Setq 01 and 02 to coordinates of extremal points of possible 
edge, i.e.: 

(SETQ Ql (CONS X-coord* Y-coord.)) 
(SETQ Q2 (CONS X-COOrd- Y-coord.)) 
Coordinates should be fixed point quantities between and 1777 octal. 

5. Execute 

(LV) 
If no edge is found it returns NIL, otherwise a description of the 
edge as follows: 

(STEP DARK RIGHT (20 . 25)) 
-edge of the step type 

-the dotted pair represents the x-coordinates of the lower and 
upper point of the actual edge with respect to axes Ox and 0y 
as shown in the figure ?*3 

-the darker face is right of Q]Q2- /^^Ql* 




Another description: 

(ROOF UP (22 . 42) ) 
-roof looking upward, 

etc* * . 
6, a) li| is set to 10. If you wish to change it execute: 
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(SETQ INCERT new value ) 

floating point number 
(LVCST) 
(TABALF) 

b) The shortest and longest edges for which the verification 
process is secure are 50. and 400, respectively (2000 octal being 
the side of the whole field) ■ To change this execute: 

(SETQ MAXLE new value of maximal length ) 

(SETQ MINLE new value of minimal length ) 

(LVCST) 

(TABALF) 
Values should be floating point numbers, 

Note: if you make MINLE lass than 50., you should use S bands 
instead of 10 (for clarification see paragraph 7 below). Then 
MINLE can be lowered down to 25- 

c) If you want to use the program with canned data, read in 
the canned data after reading file LV 1, as follows: 

(LOAD Edge File No. device user LID) 

array where cross-sections are stored 
Presumably you would before have dumped LID: 

(DUMP Edge File No, device user LID) 
7- The procedure is set with 10 bands (see On Boundary Detection , 
A.I, Memo No* 183, p, 45), If you wish to use five bands execute; 

- 3Q - 



{SETQ NBD 5) 
{SETQ THBIN 4: 
(LVCST) 
(SETPAB "TV) 
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